home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
amos
/
guicomp.lha
/
CompilerPatch.Amos
/
CompilerPatch.amosSourceCode
< prev
Wrap
AMOS Source Code
|
1992-09-02
|
3KB
|
103 lines
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'
' Name: AMOSPro Compiler Patch
' Author: Pietro Ghizzoni
' E-Mail: ghizzo@galactica.it
' Version: 1.1
'
' This program create a COPY of the compiler files WITHOUT modify
' the originals! :)
Global S,PATH$
Reserve As Work 10,30000 : S=Start(10) : PATH$=Resource$(0)
C$=PATH$+"Apcmp" : Trap Open In 1,C$
If Errtrap
Repeat
C$=Fsel$("APcmp","","Load the compiler....")
Until Right$(Upper$(C$),5)="APCMP"
PATH$=Left$(C$,Len(C$)-5)
Else
Close
End If
'Load the compiler
'~~~~~~~~~~~~~~~~~~~
Print "Patch the compiler!"
L0AD["APcmp",29528]
'Patch the compiler
'~~~~~~~~~~~~~~~~~~~~
Poke$ S+28706,"s/AMOSPro_Gui_Comp_Config"+Chr$(0)
Poke$ S+28732,"s:AMOSPro_Gui_Comp_Config"+Chr$(0)
Poke$ S+28758,"Libs:Gui.Library"+Chr$(0)
'Save the patched compiler
'~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bsave PATH$+"GUICmp",S To S+29528
'Load the Header_BackStart Library
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Print "Patch the Header_BackStart.Lib"
L0AD["Header_BackStart.Lib",3436]
'Pacth the lib
'~~~~~~~~~~~~~~~
Poke$ S+3046,"Gui.Library "+Chr$(0)
Poke$ S+3076,"Libs:Gui.Library"+Chr$(0)
Poke$ S+3094,"APSystem/Gui.Library"+Chr$(0)
Poke$ S+3116,"Libs/Gui.Library"+Chr$(0)
'Save the patched library
'~~~~~~~~~~~~~~~~~~~~~~~~~~
Bsave PATH$+"Gui_BackStart.Lib",S To S+3436
'Load the Header_CLI Library
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Print "Patch the Header_CLI.Lib"
L0AD["Header_CLI.Lib",2928]
'Patch the lib
'~~~~~~~~~~~~~~~
Poke$ S+2816,"Gui.Library "+Chr$(0)
Poke$ S+2846,"Libs:Gui.Library"+Chr$(0)
Poke$ S+2864,"APsystem/Gui.Library"+Chr$(0)
Poke$ S+2886,"Libs/Gui.Library"+Chr$(0)
'Save the patched library
'~~~~~~~~~~~~~~~~~~~~~~~~~~
Bsave PATH$+"Gui_CLI.Lib",S To S+2928
'Save the AMOS.Library Patched Version ( Gui.Library )
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Print "Patch Amos.Library -> GUI.Library"
Bsave "Libs:"+"Gui.Library",Start(7) To Start(7)+46948
'Save the new GUI-Compiler config file
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Print "Save new compiler configuration file"
Bsave "S:AMOSPro_Gui_Comp_Config",Start(8) To Start(8)+1522
Print "Done!"
Procedure ERR[M$]
Print M$ : Boom : End
End Proc
Procedure L0AD[FILE$,SIZE]
Trap Open In 1,PATH$+FILE$
If Errtrap Then ERR[FILE$+" no found!"]
If Lof(1)><SIZE Then ERR["This isn't the orginal "+FILE$]
Bload PATH$+FILE$,S : Trap Close
End Proc
' Contact me! -> ghizzo@galactica.it